/ Developer CD Series 1999 June: Reference Library / Dev.CD Jun 99 RL Disk 1.toast / Technical Documentation / Develop / develop Issue 23 / develop Issue 23 code / Internet Config.sea / Internet Config / IC 1.1 / ICProgKit1.1 / Source / Internet Config Source / ICRSubs.p

< prev

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 09 49 43 52 53 75 62 | 73 2e 70 00 00 00 00 00 |..ICRSub|s.p.....|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 50 4a 4d | 4d 01 00 00 00 00 00 00 |.TEXTPJM|M.......|
|00000050| 00 00 00 00 00 22 5f 00 | 00 07 f4 ab c0 75 73 ab |....."_.|.....us.|
|00000060| c0 75 73 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.us.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 fb 77 00 00 |........|.....w..|
|00000080| 75 6e 69 74 20 49 43 52 | 53 75 62 73 3b 0d 0d 69 |unit ICR|Subs;..i|
|00000090| 6e 74 65 72 66 61 63 65 | 0d 0d 09 75 73 65 73 0d |nterface|...uses.|
|000000a0| 7b 24 69 66 63 20 75 6e | 64 65 66 69 6e 65 64 20 |{$ifc un|defined |
|000000b0| 54 48 49 4e 4b 5f 50 61 | 73 63 61 6c 7d 0d 09 09 |THINK_Pa|scal}...|
|000000c0| 54 79 70 65 73 2c 20 46 | 69 6c 65 73 2c 20 0d 7b |Types, F|iles, .{|
|000000d0| 24 65 6e 64 63 7d 0d 09 | 09 49 43 54 79 70 65 73 |$endc}..|.ICTypes|
|000000e0| 3b 0d 0d 09 66 75 6e 63 | 74 69 6f 6e 20 45 64 69 |;...func|tion Edi|
|000000f0| 74 50 72 65 66 65 72 65 | 6e 63 65 73 20 28 6b 65 |tPrefere|nces (ke|
|00000100| 79 3a 20 53 74 72 32 35 | 35 3b 20 70 72 65 66 73 |y: Str25|5; prefs|
|00000110| 66 69 6c 65 3a 20 46 53 | 53 70 65 63 29 3a 20 49 |file: FS|Spec): I|
|00000120| 43 45 72 72 6f 72 3b 0d | 0d 09 66 75 6e 63 74 69 |CError;.|..functi|
|00000130| 6f 6e 20 46 69 6e 64 53 | 63 68 65 6d 65 20 28 75 |on FindS|cheme (u|
|00000140| 72 6c 68 3a 20 48 61 6e | 64 6c 65 3b 20 76 61 72 |rlh: Han|dle; var|
|00000150| 20 73 63 68 65 6d 65 3a | 20 53 74 72 32 35 35 29 | scheme:| Str255)|
|00000160| 3a 20 49 43 45 72 72 6f | 72 3b 0d 09 66 75 6e 63 |: ICErro|r;..func|
|00000170| 74 69 6f 6e 20 4c 61 75 | 6e 63 68 55 52 4c 20 28 |tion Lau|nchURL (|
|00000180| 68 65 6c 70 65 72 3a 20 | 4f 53 54 79 70 65 3b 20 |helper: |OSType; |
|00000190| 75 72 6c 68 3a 20 48 61 | 6e 64 6c 65 29 3a 20 49 |urlh: Ha|ndle): I|
|000001a0| 43 45 72 72 6f 72 3b 0d | 0d 69 6d 70 6c 65 6d 65 |CError;.|.impleme|
|000001b0| 6e 74 61 74 69 6f 6e 0d | 0d 09 75 73 65 73 0d 7b |ntation.|..uses.{|
|000001c0| 24 69 66 63 20 75 6e 64 | 65 66 69 6e 65 64 20 54 |$ifc und|efined T|
|000001d0| 48 49 4e 4b 5f 50 61 73 | 63 61 6c 7d 0d 09 09 47 |HINK_Pas|cal}...G|
|000001e0| 65 73 74 61 6c 74 45 71 | 75 2c 20 45 72 72 6f 72 |estaltEq|u, Error|
|000001f0| 73 2c 20 54 6f 6f 6c 55 | 74 69 6c 73 2c 20 0d 7b |s, ToolU|tils, .{|
|00000200| 24 65 6e 64 63 7d 0d 09 | 09 50 72 6f 63 65 73 73 |$endc}..|.Process|
|00000210| 65 73 2c 20 41 70 70 6c | 65 45 76 65 6e 74 73 3b |es, Appl|eEvents;|
|00000220| 0d 0d 09 66 75 6e 63 74 | 69 6f 6e 20 48 61 76 65 |...funct|ion Have|
|00000230| 50 72 6f 63 65 73 73 4d | 61 6e 61 67 65 72 3a 20 |ProcessM|anager: |
|00000240| 49 43 45 72 72 6f 72 3b | 0d 09 09 76 61 72 0d 09 |ICError;|...var..|
|00000250| 09 09 67 76 3a 20 6c 6f | 6e 67 69 6e 74 3b 0d 09 |..gv: lo|ngint;..|
|00000260| 62 65 67 69 6e 0d 09 09 | 69 66 20 28 47 65 73 74 |begin...|if (Gest|
|00000270| 61 6c 74 28 67 65 73 74 | 61 6c 74 4f 53 41 74 74 |alt(gest|altOSAtt|
|00000280| 72 2c 20 67 76 29 20 3d | 20 6e 6f 45 72 72 29 20 |r, gv) =| noErr) |
|00000290| 26 20 28 42 54 53 54 28 | 67 76 2c 20 67 65 73 74 |& (BTST(|gv, gest|
|000002a0| 61 6c 74 4c 61 75 6e 63 | 68 43 6f 6e 74 72 6f 6c |altLaunc|hControl|
|000002b0| 29 29 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |)) then |begin...|
|000002c0| 09 48 61 76 65 50 72 6f | 63 65 73 73 4d 61 6e 61 |.HavePro|cessMana|
|000002d0| 67 65 72 20 3a 3d 20 6e | 6f 45 72 72 3b 0d 09 09 |ger := n|oErr;...|
|000002e0| 65 6e 64 0d 09 09 65 6c | 73 65 20 62 65 67 69 6e |end...el|se begin|
|000002f0| 0d 09 09 09 48 61 76 65 | 50 72 6f 63 65 73 73 4d |....Have|ProcessM|
|00000300| 61 6e 61 67 65 72 20 3a | 3d 20 75 6e 69 6d 70 45 |anager :|= unimpE|
|00000310| 72 72 3b 0d 09 09 65 6e | 64 3b 20 28 2a 20 69 66 |rr;...en|d; (* if|
|00000320| 20 2a 29 0d 09 65 6e 64 | 3b 20 28 2a 20 48 61 76 | *)..end|; (* Hav|
|00000330| 65 50 72 6f 63 65 73 73 | 4d 61 6e 61 67 65 72 20 |eProcess|Manager |
|00000340| 2a 29 0d 0d 09 66 75 6e | 63 74 69 6f 6e 20 46 69 |*)...fun|ction Fi|
|00000350| 6e 64 50 72 6f 63 65 73 | 73 20 28 63 72 65 61 74 |ndProces|s (creat|
|00000360| 6f 72 2c 20 74 79 70 3a | 20 4f 53 54 79 70 65 3b |or, typ:| OSType;|
|00000370| 20 76 61 72 20 70 72 6f | 63 65 73 73 3a 20 50 72 | var pro|cess: Pr|
|00000380| 6f 63 65 73 73 53 65 72 | 69 61 6c 4e 75 6d 62 65 |ocessSer|ialNumbe|
|00000390| 72 3b 20 76 61 72 20 66 | 73 3a 20 46 53 53 70 65 |r; var f|s: FSSpe|
|000003a0| 63 29 3a 20 62 6f 6f 6c | 65 61 6e 3b 0d 09 09 76 |c): bool|ean;...v|
|000003b0| 61 72 0d 09 09 09 69 6e | 66 6f 3a 20 50 72 6f 63 |ar....in|fo: Proc|
|000003c0| 65 73 73 49 6e 66 6f 52 | 65 63 3b 0d 09 09 09 6f |essInfoR|ec;....o|
|000003d0| 65 3a 20 4f 53 45 72 72 | 3b 0d 09 09 09 67 76 3a |e: OSErr|;....gv:|
|000003e0| 20 6c 6f 6e 67 49 6e 74 | 3b 0d 09 62 65 67 69 6e | longInt|;..begin|
|000003f0| 0d 09 09 46 69 6e 64 50 | 72 6f 63 65 73 73 20 3a |...FindP|rocess :|
|00000400| 3d 20 66 61 6c 73 65 3b | 0d 09 09 69 66 20 48 61 |= false;|...if Ha|
|00000410| 76 65 50 72 6f 63 65 73 | 73 4d 61 6e 61 67 65 72 |veProces|sManager|
|00000420| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|00000430| 67 69 6e 0d 09 09 09 70 | 72 6f 63 65 73 73 2e 68 |gin....p|rocess.h|
|00000440| 69 67 68 4c 6f 6e 67 4f | 66 50 53 4e 20 3a 3d 20 |ighLongO|fPSN := |
|00000450| 30 3b 0d 09 09 09 70 72 | 6f 63 65 73 73 2e 6c 6f |0;....pr|ocess.lo|
|00000460| 77 4c 6f 6e 67 4f 66 50 | 53 4e 20 3a 3d 20 6b 4e |wLongOfP|SN := kN|
|00000470| 6f 50 72 6f 63 65 73 73 | 3b 0d 09 09 09 69 6e 66 |oProcess|;....inf|
|00000480| 6f 2e 70 72 6f 63 65 73 | 73 49 6e 66 6f 4c 65 6e |o.proces|sInfoLen|
|00000490| 67 74 68 20 3a 3d 20 73 | 69 7a 65 6f 66 28 50 72 |gth := s|izeof(Pr|
|000004a0| 6f 63 65 73 73 49 6e 66 | 6f 52 65 63 29 3b 0d 09 |ocessInf|oRec);..|
|000004b0| 09 09 69 6e 66 6f 2e 70 | 72 6f 63 65 73 73 4e 61 |..info.p|rocessNa|
|000004c0| 6d 65 20 3a 3d 20 6e 69 | 6c 3b 0d 09 09 09 69 6e |me := ni|l;....in|
|000004d0| 66 6f 2e 70 72 6f 63 65 | 73 73 41 70 70 53 70 65 |fo.proce|ssAppSpe|
|000004e0| 63 20 3a 3d 20 40 66 73 | 3b 0d 09 09 09 77 68 69 |c := @fs|;....whi|
|000004f0| 6c 65 20 47 65 74 4e 65 | 78 74 50 72 6f 63 65 73 |le GetNe|xtProces|
|00000500| 73 28 70 72 6f 63 65 73 | 73 29 20 3d 20 6e 6f 45 |s(proces|s) = noE|
|00000510| 72 72 20 64 6f 20 62 65 | 67 69 6e 0d 09 09 09 09 |rr do be|gin.....|
|00000520| 69 66 20 28 47 65 74 50 | 72 6f 63 65 73 73 49 6e |if (GetP|rocessIn|
|00000530| 66 6f 72 6d 61 74 69 6f | 6e 28 70 72 6f 63 65 73 |formatio|n(proces|
|00000540| 73 2c 20 69 6e 66 6f 29 | 20 3d 20 6e 6f 45 72 72 |s, info)| = noErr|
|00000550| 29 20 26 20 28 69 6e 66 | 6f 2e 70 72 6f 63 65 73 |) & (inf|o.proces|
|00000560| 73 54 79 70 65 20 3d 20 | 6c 6f 6e 67 49 6e 74 28 |sType = |longInt(|
|00000570| 74 79 70 29 29 20 26 20 | 28 69 6e 66 6f 2e 70 72 |typ)) & |(info.pr|
|00000580| 6f 63 65 73 73 53 69 67 | 6e 61 74 75 72 65 20 3d |ocessSig|nature =|
|00000590| 20 63 72 65 61 74 6f 72 | 29 20 74 68 65 6e 20 62 | creator|) then b|
|000005a0| 65 67 69 6e 0d 09 09 09 | 09 09 46 69 6e 64 50 72 |egin....|..FindPr|
|000005b0| 6f 63 65 73 73 20 3a 3d | 20 74 72 75 65 3b 0d 09 |ocess :=| true;..|
|000005c0| 09 09 09 09 6c 65 61 76 | 65 3b 0d 09 09 09 09 65 |....leav|e;.....e|
|000005d0| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 09 |nd; (* i|f *)....|
|000005e0| 65 6e 64 3b 20 28 2a 20 | 77 68 69 6c 65 20 2a 29 |end; (* |while *)|
|000005f0| 0d 09 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |...end; |(* if *)|
|00000600| 0d 09 65 6e 64 3b 20 28 | 2a 20 46 69 6e 64 50 72 |..end; (|* FindPr|
|00000610| 6f 63 65 73 73 20 2a 29 | 0d 0d 09 66 75 6e 63 74 |ocess *)|...funct|
|00000620| 69 6f 6e 20 47 65 74 56 | 6f 6c 49 6e 66 6f 20 28 |ion GetV|olInfo (|
|00000630| 76 61 72 20 6e 61 6d 65 | 3a 20 73 74 72 36 33 3b |var name|: str63;|
|00000640| 20 76 61 72 20 76 72 6e | 3a 20 69 6e 74 65 67 65 | var vrn|: intege|
|00000650| 72 3b 20 69 6e 64 65 78 | 3a 20 69 6e 74 65 67 65 |r; index|: intege|
|00000660| 72 29 3a 20 4f 53 45 72 | 72 3b 0d 09 09 76 61 72 |r): OSEr|r;...var|
|00000670| 0d 09 09 09 70 62 3a 20 | 70 61 72 61 6d 42 6c 6f |....pb: |paramBlo|
|00000680| 63 6b 52 65 63 3b 0d 09 | 09 09 6f 65 3a 20 4f 53 |ckRec;..|..oe: OS|
|00000690| 45 72 72 3b 0d 09 62 65 | 67 69 6e 0d 09 09 69 66 |Err;..be|gin...if|
|000006a0| 20 28 6e 61 6d 65 20 3c | 3e 20 27 27 29 20 26 20 | (name <|> '') & |
|000006b0| 28 6e 61 6d 65 5b 6c 65 | 6e 67 74 68 28 6e 61 6d |(name[le|ngth(nam|
|000006c0| 65 29 5d 20 3c 3e 20 27 | 3a 27 29 20 74 68 65 6e |e)] <> '|:') then|
|000006d0| 20 62 65 67 69 6e 0d 09 | 09 09 6e 61 6d 65 20 3a | begin..|..name :|
|000006e0| 3d 20 63 6f 6e 63 61 74 | 28 6e 61 6d 65 2c 20 27 |= concat|(name, '|
|000006f0| 3a 27 29 3b 0d 09 09 65 | 6e 64 3b 20 28 2a 20 69 |:');...e|nd; (* i|
|00000700| 66 20 2a 29 0d 09 09 70 | 62 2e 69 6f 4e 61 6d 65 |f *)...p|b.ioName|
|00000710| 50 74 72 20 3a 3d 20 40 | 6e 61 6d 65 3b 0d 09 09 |Ptr := @|name;...|
|00000720| 70 62 2e 69 6f 56 52 65 | 66 4e 75 6d 20 3a 3d 20 |pb.ioVRe|fNum := |
|00000730| 76 72 6e 3b 0d 09 09 70 | 62 2e 69 6f 56 6f 6c 49 |vrn;...p|b.ioVolI|
|00000740| 6e 64 65 78 20 3a 3d 20 | 69 6e 64 65 78 3b 0d 09 |ndex := |index;..|
|00000750| 09 6f 65 20 3a 3d 20 50 | 42 47 65 74 56 49 6e 66 |.oe := P|BGetVInf|
|00000760| 6f 28 40 70 62 2c 20 66 | 61 6c 73 65 29 3b 0d 09 |o(@pb, f|alse);..|
|00000770| 09 69 66 20 6f 65 20 3d | 20 6e 6f 45 72 72 20 74 |.if oe =| noErr t|
|00000780| 68 65 6e 20 62 65 67 69 | 6e 0d 09 09 09 76 72 6e |hen begi|n....vrn|
|00000790| 20 3a 3d 20 70 62 2e 69 | 6f 56 52 65 66 4e 75 6d | := pb.i|oVRefNum|
|000007a0| 3b 0d 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |;...end;| (* if *|
|000007b0| 29 0d 09 09 47 65 74 56 | 6f 6c 49 6e 66 6f 20 3a |)...GetV|olInfo :|
|000007c0| 3d 20 6f 65 3b 0d 09 65 | 6e 64 3b 20 28 2a 20 47 |= oe;..e|nd; (* G|
|000007d0| 65 74 56 6f 6c 49 6e 66 | 6f 20 2a 29 0d 0d 09 66 |etVolInf|o *)...f|
|000007e0| 75 6e 63 74 69 6f 6e 20 | 43 6f 6e 66 69 72 6d 41 |unction |ConfirmA|
|000007f0| 70 70 6c 20 28 63 72 65 | 61 74 6f 72 3a 20 4f 53 |ppl (cre|ator: OS|
|00000800| 54 79 70 65 3b 20 76 61 | 72 20 66 73 73 3a 20 46 |Type; va|r fss: F|
|00000810| 53 53 70 65 63 29 3a 20 | 4f 53 45 72 72 3b 0d 09 |SSpec): |OSErr;..|
|00000820| 09 76 61 72 0d 09 09 09 | 65 72 72 3a 20 4f 53 45 |.var....|err: OSE|
|00000830| 72 72 3b 0d 09 09 09 69 | 6e 66 6f 3a 20 46 49 6e |rr;....i|nfo: FIn|
|00000840| 66 6f 3b 0d 09 62 65 67 | 69 6e 0d 09 09 65 72 72 |fo;..beg|in...err|
|00000850| 20 3a 3d 20 48 47 65 74 | 46 49 6e 66 6f 28 66 73 | := HGet|FInfo(fs|
|00000860| 73 2e 76 52 65 66 4e 75 | 6d 2c 20 66 73 73 2e 70 |s.vRefNu|m, fss.p|
|00000870| 61 72 49 44 2c 20 66 73 | 73 2e 6e 61 6d 65 2c 20 |arID, fs|s.name, |
|00000880| 69 6e 66 6f 29 3b 0d 09 | 09 69 66 20 65 72 72 20 |info);..|.if err |
|00000890| 3d 20 6e 6f 45 72 72 20 | 74 68 65 6e 20 62 65 67 |= noErr |then beg|
|000008a0| 69 6e 0d 09 09 09 69 66 | 20 28 69 6e 66 6f 2e 66 |in....if| (info.f|
|000008b0| 64 54 79 70 65 20 3c 3e | 20 27 41 50 50 4c 27 29 |dType <>| 'APPL')|
|000008c0| 20 6f 72 20 28 69 6e 66 | 6f 2e 66 64 43 72 65 61 | or (inf|o.fdCrea|
|000008d0| 74 6f 72 20 3c 3e 20 63 | 72 65 61 74 6f 72 29 20 |tor <> c|reator) |
|000008e0| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 09 65 |then beg|in.....e|
|000008f0| 72 72 20 3a 3d 20 61 66 | 70 49 74 65 6d 4e 6f 74 |rr := af|pItemNot|
|00000900| 46 6f 75 6e 64 3b 0d 09 | 09 09 65 6e 64 3b 20 28 |Found;..|..end; (|
|00000910| 2a 20 69 66 20 2a 29 0d | 09 09 65 6e 64 3b 20 28 |* if *).|..end; (|
|00000920| 2a 20 69 66 20 2a 29 0d | 09 09 43 6f 6e 66 69 72 |* if *).|..Confir|
|00000930| 6d 41 70 70 6c 20 3a 3d | 20 65 72 72 3b 0d 09 65 |mAppl :=| err;..e|
|00000940| 6e 64 3b 20 28 2a 20 43 | 6f 6e 66 69 72 6d 41 70 |nd; (* C|onfirmAp|
|00000950| 70 6c 20 2a 29 0d 0d 09 | 66 75 6e 63 74 69 6f 6e |pl *)...|function|
|00000960| 20 53 63 61 6e 56 6f 6c | 75 6d 65 20 28 63 72 65 | ScanVol|ume (cre|
|00000970| 61 74 6f 72 3a 20 4f 53 | 54 79 70 65 3b 20 76 72 |ator: OS|Type; vr|
|00000980| 65 66 3a 20 69 6e 74 65 | 67 65 72 3b 20 76 61 72 |ef: inte|ger; var|
|00000990| 20 66 73 3a 20 46 53 53 | 70 65 63 29 3a 20 4f 53 | fs: FSS|pec): OS|
|000009a0| 45 72 72 3b 0d 09 09 76 | 61 72 0d 09 09 09 65 72 |Err;...v|ar....er|
|000009b0| 72 3a 20 4f 53 45 72 72 | 3b 0d 09 09 09 66 69 6c |r: OSErr|;....fil|
|000009c0| 65 5f 69 6e 64 65 78 3a | 20 69 6e 74 65 67 65 72 |e_index:| integer|
|000009d0| 3b 0d 09 09 09 70 62 64 | 74 3a 20 44 54 50 42 52 |;....pbd|t: DTPBR|
|000009e0| 65 63 3b 0d 09 09 09 66 | 6f 75 6e 64 3a 20 62 6f |ec;....f|ound: bo|
|000009f0| 6f 6c 65 61 6e 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |olean;..|begin...|
|00000a00| 66 73 2e 6e 61 6d 65 20 | 3a 3d 20 27 27 3b 0d 09 |fs.name |:= '';..|
|00000a10| 09 70 62 64 74 2e 69 6f | 4e 61 6d 65 50 74 72 20 |.pbdt.io|NamePtr |
|00000a20| 3a 3d 20 40 66 73 2e 6e | 61 6d 65 3b 0d 09 09 70 |:= @fs.n|ame;...p|
|00000a30| 62 64 74 2e 69 6f 56 52 | 65 66 4e 75 6d 20 3a 3d |bdt.ioVR|efNum :=|
|00000a40| 20 76 72 65 66 3b 0d 09 | 09 65 72 72 20 3a 3d 20 | vref;..|.err := |
|00000a50| 50 42 44 54 47 65 74 50 | 61 74 68 28 40 70 62 64 |PBDTGetP|ath(@pbd|
|00000a60| 74 29 3b 0d 09 09 69 66 | 20 65 72 72 20 3d 20 6e |t);...if| err = n|
|00000a70| 6f 45 72 72 20 74 68 65 | 6e 20 62 65 67 69 6e 0d |oErr the|n begin.|
|00000a80| 09 09 09 66 69 6c 65 5f | 69 6e 64 65 78 20 3a 3d |...file_|index :=|
|00000a90| 20 31 3b 0d 09 09 09 66 | 6f 75 6e 64 20 3a 3d 20 | 1;....f|ound := |
|00000aa0| 66 61 6c 73 65 3b 0d 09 | 09 09 72 65 70 65 61 74 |false;..|..repeat|
|00000ab0| 0d 09 09 09 09 70 62 64 | 74 2e 69 6f 49 6e 64 65 |.....pbd|t.ioInde|
|00000ac0| 78 20 3a 3d 20 66 69 6c | 65 5f 69 6e 64 65 78 3b |x := fil|e_index;|
|00000ad0| 0d 09 09 09 09 70 62 64 | 74 2e 69 6f 46 69 6c 65 |.....pbd|t.ioFile|
|00000ae0| 43 72 65 61 74 6f 72 20 | 3a 3d 20 63 72 65 61 74 |Creator |:= creat|
|00000af0| 6f 72 3b 0d 09 09 09 09 | 65 72 72 20 3a 3d 20 50 |or;.....|err := P|
|00000b00| 42 44 54 47 65 74 41 50 | 50 4c 53 79 6e 63 28 40 |BDTGetAP|PLSync(@|
|00000b10| 70 62 64 74 29 3b 0d 09 | 09 09 09 69 66 20 65 72 |pbdt);..|...if er|
|00000b20| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|00000b30| 65 67 69 6e 0d 09 09 09 | 09 09 66 73 2e 76 52 65 |egin....|..fs.vRe|
|00000b40| 66 4e 75 6d 20 3a 3d 20 | 76 72 65 66 3b 0d 09 09 |fNum := |vref;...|
|00000b50| 09 09 09 66 73 2e 70 61 | 72 49 44 20 3a 3d 20 70 |...fs.pa|rID := p|
|00000b60| 62 64 74 2e 69 6f 41 50 | 50 4c 50 61 72 49 44 3b |bdt.ioAP|PLParID;|
|00000b70| 0d 09 09 09 09 09 28 2a | 20 6e 61 6d 65 20 69 73 |......(*| name is|
|00000b80| 20 61 6c 72 65 61 64 79 | 20 70 75 74 20 69 6e 20 | already| put in |
|00000b90| 62 79 20 47 65 74 41 50 | 50 4c 20 63 61 6c 6c 20 |by GetAP|PL call |
|00000ba0| 2a 29 0d 09 09 09 09 09 | 66 6f 75 6e 64 20 3a 3d |*)......|found :=|
|00000bb0| 20 28 43 6f 6e 66 69 72 | 6d 41 70 70 6c 28 63 72 | (Confir|mAppl(cr|
|00000bc0| 65 61 74 6f 72 2c 20 66 | 73 29 20 3d 20 6e 6f 45 |eator, f|s) = noE|
|00000bd0| 72 72 29 3b 0d 09 09 09 | 09 65 6e 64 3b 20 28 2a |rr);....|.end; (*|
|00000be0| 20 69 66 20 2a 29 0d 09 | 09 09 09 66 69 6c 65 5f | if *)..|...file_|
|00000bf0| 69 6e 64 65 78 20 3a 3d | 20 66 69 6c 65 5f 69 6e |index :=| file_in|
|00000c00| 64 65 78 20 2b 20 31 3b | 0d 09 09 09 75 6e 74 69 |dex + 1;|....unti|
|00000c10| 6c 20 66 6f 75 6e 64 20 | 6f 72 20 28 65 72 72 20 |l found |or (err |
|00000c20| 3c 3e 20 6e 6f 45 72 72 | 29 3b 0d 09 09 65 6e 64 |<> noErr|);...end|
|00000c30| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 53 63 61 |; (* if |*)...Sca|
|00000c40| 6e 56 6f 6c 75 6d 65 20 | 3a 3d 20 65 72 72 3b 0d |nVolume |:= err;.|
|00000c50| 09 65 6e 64 3b 20 28 2a | 20 53 63 61 6e 56 6f 6c |.end; (*| ScanVol|
|00000c60| 75 6d 65 20 2a 29 0d 0d | 09 66 75 6e 63 74 69 6f |ume *)..|.functio|
|00000c70| 6e 20 46 69 6e 64 41 70 | 70 6c 69 63 61 74 69 6f |n FindAp|plicatio|
|00000c80| 6e 20 28 63 72 65 61 74 | 6f 72 3a 20 4f 53 54 79 |n (creat|or: OSTy|
|00000c90| 70 65 3b 20 76 61 72 20 | 66 73 3a 20 46 53 53 70 |pe; var |fs: FSSp|
|00000ca0| 65 63 29 3a 20 4f 53 45 | 72 72 3b 0d 09 09 76 61 |ec): OSE|rr;...va|
|00000cb0| 72 0d 09 09 09 65 72 72 | 3a 20 4f 53 45 72 72 3b |r....err|: OSErr;|
|00000cc0| 0d 09 09 09 76 6f 6c 5f | 69 6e 64 65 78 3a 20 69 |....vol_|index: i|
|00000cd0| 6e 74 65 67 65 72 3b 0d | 09 09 09 76 72 65 66 3a |nteger;.|...vref:|
|00000ce0| 20 69 6e 74 65 67 65 72 | 3b 0d 09 09 09 66 6f 75 | integer|;....fou|
|00000cf0| 6e 64 3a 20 62 6f 6f 6c | 65 61 6e 3b 0d 09 62 65 |nd: bool|ean;..be|
|00000d00| 67 69 6e 0d 09 09 66 6f | 75 6e 64 20 3a 3d 20 66 |gin...fo|und := f|
|00000d10| 61 6c 73 65 3b 0d 09 09 | 76 6f 6c 5f 69 6e 64 65 |alse;...|vol_inde|
|00000d20| 78 20 3a 3d 20 31 3b 0d | 09 09 72 65 70 65 61 74 |x := 1;.|..repeat|
|00000d30| 0d 09 09 09 76 72 65 66 | 20 3a 3d 20 30 3b 0d 09 |....vref| := 0;..|
|00000d40| 09 09 65 72 72 20 3a 3d | 20 47 65 74 56 6f 6c 49 |..err :=| GetVolI|
|00000d50| 6e 66 6f 28 66 73 2e 6e | 61 6d 65 2c 20 76 72 65 |nfo(fs.n|ame, vre|
|00000d60| 66 2c 20 76 6f 6c 5f 69 | 6e 64 65 78 29 3b 0d 09 |f, vol_i|ndex);..|
|00000d70| 09 09 69 66 20 65 72 72 | 20 3d 20 6e 6f 45 72 72 |..if err| = noErr|
|00000d80| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 09 | then be|gin.....|
|00000d90| 65 72 72 20 3a 3d 20 53 | 63 61 6e 56 6f 6c 75 6d |err := S|canVolum|
|00000da0| 65 28 63 72 65 61 74 6f | 72 2c 20 76 72 65 66 2c |e(creato|r, vref,|
|00000db0| 20 66 73 29 3b 0d 09 09 | 09 09 69 66 20 65 72 72 | fs);...|..if err|
|00000dc0| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|00000dd0| 67 69 6e 0d 09 09 09 09 | 09 66 6f 75 6e 64 20 3a |gin.....|.found :|
|00000de0| 3d 20 74 72 75 65 3b 0d | 09 09 09 09 65 6e 64 0d |= true;.|....end.|
|00000df0| 09 09 09 09 65 6c 73 65 | 20 62 65 67 69 6e 0d 09 |....else| begin..|
|00000e00| 09 09 09 09 65 72 72 20 | 3a 3d 20 6e 6f 45 72 72 |....err |:= noErr|
|00000e10| 3b 09 09 28 2a 20 73 77 | 61 6c 6c 6f 77 20 65 72 |;..(* sw|allow er|
|00000e20| 72 6f 72 20 73 6f 20 77 | 65 20 63 6f 6e 74 69 6e |ror so w|e contin|
|00000e30| 75 65 20 77 69 74 68 20 | 6e 65 78 74 20 76 6f 6c |ue with |next vol|
|00000e40| 75 6d 65 20 2a 29 0d 09 | 09 09 09 65 6e 64 3b 20 |ume *)..|...end; |
|00000e50| 28 2a 20 69 66 20 2a 29 | 0d 09 09 09 65 6e 64 3b |(* if *)|....end;|
|00000e60| 20 28 2a 20 69 66 20 2a | 29 0d 09 09 09 76 6f 6c | (* if *|)....vol|
|00000e70| 5f 69 6e 64 65 78 20 3a | 3d 20 76 6f 6c 5f 69 6e |_index :|= vol_in|
|00000e80| 64 65 78 20 2b 20 31 3b | 0d 09 09 75 6e 74 69 6c |dex + 1;|...until|
|00000e90| 20 66 6f 75 6e 64 20 6f | 72 20 28 65 72 72 20 3c | found o|r (err <|
|00000ea0| 3e 20 6e 6f 45 72 72 29 | 3b 0d 09 09 69 66 20 6e |> noErr)|;...if n|
|00000eb0| 6f 74 20 66 6f 75 6e 64 | 20 74 68 65 6e 20 62 65 |ot found| then be|
|00000ec0| 67 69 6e 0d 09 09 09 65 | 72 72 20 3a 3d 20 61 66 |gin....e|rr := af|
|00000ed0| 70 49 74 65 6d 4e 6f 74 | 46 6f 75 6e 64 3b 0d 09 |pItemNot|Found;..|
|00000ee0| 09 09 66 73 2e 76 52 65 | 66 4e 75 6d 20 3a 3d 20 |..fs.vRe|fNum := |
|00000ef0| 30 3b 0d 09 09 09 66 73 | 2e 70 61 72 49 44 20 3a |0;....fs|.parID :|
|00000f00| 3d 20 32 3b 0d 09 09 09 | 66 73 2e 6e 61 6d 65 20 |= 2;....|fs.name |
|00000f10| 3a 3d 20 27 27 3b 0d 09 | 09 65 6e 64 3b 20 28 2a |:= '';..|.end; (*|
|00000f20| 20 69 66 20 2a 29 0d 09 | 09 46 69 6e 64 41 70 70 | if *)..|.FindApp|
|00000f30| 6c 69 63 61 74 69 6f 6e | 20 3a 3d 20 65 72 72 3b |lication| := err;|
|00000f40| 0d 09 65 6e 64 3b 20 28 | 2a 20 46 69 6e 64 41 70 |..end; (|* FindAp|
|00000f50| 70 6c 69 63 61 74 69 6f | 6e 20 2a 29 0d 0d 09 66 |plicatio|n *)...f|
|00000f60| 75 6e 63 74 69 6f 6e 20 | 50 72 65 70 61 72 65 54 |unction |PrepareT|
|00000f70| 6f 4c 61 75 6e 63 68 20 | 28 76 61 72 20 74 68 65 |oLaunch |(var the|
|00000f80| 45 76 65 6e 74 3a 20 41 | 70 70 6c 65 45 76 65 6e |Event: A|ppleEven|
|00000f90| 74 3b 20 74 6f 66 72 6f | 6e 74 3a 20 62 6f 6f 6c |t; tofro|nt: bool|
|00000fa0| 65 61 6e 3b 20 76 61 72 | 20 6c 61 75 6e 63 68 54 |ean; var| launchT|
|00000fb0| 68 69 73 3a 20 4c 61 75 | 6e 63 68 50 61 72 61 6d |his: Lau|nchParam|
|00000fc0| 42 6c 6f 63 6b 52 65 63 | 29 3a 20 49 43 45 72 72 |BlockRec|): ICErr|
|00000fd0| 6f 72 3b 0d 09 09 76 61 | 72 0d 09 09 09 6c 61 75 |or;...va|r....lau|
|00000fe0| 6e 63 68 44 65 73 63 3a | 20 41 45 44 65 73 63 3b |nchDesc:| AEDesc;|
|00000ff0| 0d 09 62 65 67 69 6e 0d | 09 09 50 72 65 70 61 72 |..begin.|..Prepar|
|00001000| 65 54 6f 4c 61 75 6e 63 | 68 20 3a 3d 20 41 45 43 |eToLaunc|h := AEC|
|00001010| 6f 65 72 63 65 44 65 73 | 63 28 74 68 65 45 76 65 |oerceDes|c(theEve|
|00001020| 6e 74 2c 20 74 79 70 65 | 41 70 70 50 61 72 61 6d |nt, type|AppParam|
|00001030| 65 74 65 72 73 2c 20 6c | 61 75 6e 63 68 44 65 73 |eters, l|aunchDes|
|00001040| 63 29 3b 0d 09 09 48 4c | 6f 63 6b 28 68 61 6e 64 |c);...HL|ock(hand|
|00001050| 6c 65 28 74 68 65 45 76 | 65 6e 74 2e 64 61 74 61 |le(theEv|ent.data|
|00001060| 48 61 6e 64 6c 65 29 29 | 3b 0d 09 09 6c 61 75 6e |Handle))|;...laun|
|00001070| 63 68 54 68 69 73 2e 6c | 61 75 6e 63 68 41 70 70 |chThis.l|aunchApp|
|00001080| 50 61 72 61 6d 65 74 65 | 72 73 20 3a 3d 20 41 70 |Paramete|rs := Ap|
|00001090| 70 50 61 72 61 6d 65 74 | 65 72 73 50 74 72 28 6c |pParamet|ersPtr(l|
|000010a0| 61 75 6e 63 68 44 65 73 | 63 2e 64 61 74 61 48 61 |aunchDes|c.dataHa|
|000010b0| 6e 64 6c 65 5e 29 3b 0d | 09 09 6c 61 75 6e 63 68 |ndle^);.|..launch|
|000010c0| 54 68 69 73 2e 6c 61 75 | 6e 63 68 42 6c 6f 63 6b |This.lau|nchBlock|
|000010d0| 49 44 20 3a 3d 20 65 78 | 74 65 6e 64 65 64 42 6c |ID := ex|tendedBl|
|000010e0| 6f 63 6b 3b 0d 09 09 6c | 61 75 6e 63 68 54 68 69 |ock;...l|aunchThi|
|000010f0| 73 2e 6c 61 75 6e 63 68 | 45 50 42 4c 65 6e 67 74 |s.launch|EPBLengt|
|00001100| 68 20 3a 3d 20 65 78 74 | 65 6e 64 65 64 42 6c 6f |h := ext|endedBlo|
|00001110| 63 6b 4c 65 6e 3b 0d 09 | 09 6c 61 75 6e 63 68 54 |ckLen;..|.launchT|
|00001120| 68 69 73 2e 6c 61 75 6e | 63 68 46 69 6c 65 46 6c |his.laun|chFileFl|
|00001130| 61 67 73 20 3a 3d 20 30 | 3b 0d 09 09 6c 61 75 6e |ags := 0|;...laun|
|00001140| 63 68 54 68 69 73 2e 6c | 61 75 6e 63 68 43 6f 6e |chThis.l|aunchCon|
|00001150| 74 72 6f 6c 46 6c 61 67 | 73 20 3a 3d 20 6c 61 75 |trolFlag|s := lau|
|00001160| 6e 63 68 43 6f 6e 74 69 | 6e 75 65 20 2b 20 6c 61 |nchConti|nue + la|
|00001170| 75 6e 63 68 4e 6f 46 69 | 6c 65 46 6c 61 67 73 3b |unchNoFi|leFlags;|
|00001180| 0d 09 09 69 66 20 6e 6f | 74 20 74 6f 66 72 6f 6e |...if no|t tofron|
|00001190| 74 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |t then b|egin....|
|000011a0| 6c 61 75 6e 63 68 54 68 | 69 73 2e 6c 61 75 6e 63 |launchTh|is.launc|
|000011b0| 68 43 6f 6e 74 72 6f 6c | 46 6c 61 67 73 20 3a 3d |hControl|Flags :=|
|000011c0| 20 6c 61 75 6e 63 68 54 | 68 69 73 2e 6c 61 75 6e | launchT|his.laun|
|000011d0| 63 68 43 6f 6e 74 72 6f | 6c 46 6c 61 67 73 20 2b |chContro|lFlags +|
|000011e0| 20 6c 61 75 6e 63 68 44 | 6f 6e 74 53 77 69 74 63 | launchD|ontSwitc|
|000011f0| 68 3b 0d 09 09 65 6e 64 | 3b 20 28 2a 20 69 66 20 |h;...end|; (* if |
|00001200| 2a 29 0d 09 65 6e 64 3b | 20 28 2a 20 50 72 65 70 |*)..end;| (* Prep|
|00001210| 61 72 65 54 6f 4c 61 75 | 6e 63 68 20 2a 29 0d 0d |areToLau|nch *)..|
|00001220| 09 66 75 6e 63 74 69 6f | 6e 20 43 72 65 61 74 65 |.functio|n Create|
|00001230| 47 55 52 4c 45 76 65 6e | 74 20 28 63 72 65 61 74 |GURLEven|t (creat|
|00001240| 6f 72 3a 20 4f 53 54 79 | 70 65 3b 20 75 72 6c 68 |or: OSTy|pe; urlh|
|00001250| 3a 20 48 61 6e 64 6c 65 | 3b 20 76 61 72 20 74 68 |: Handle|; var th|
|00001260| 65 45 76 65 6e 74 3a 20 | 41 70 70 6c 65 45 76 65 |eEvent: |AppleEve|
|00001270| 6e 74 29 3a 20 49 43 45 | 72 72 6f 72 3b 0d 09 09 |nt): ICE|rror;...|
|00001280| 76 61 72 0d 09 09 09 74 | 61 72 67 65 74 41 64 64 |var....t|argetAdd|
|00001290| 72 65 73 73 3a 20 41 45 | 44 65 73 63 3b 0d 09 09 |ress: AE|Desc;...|
|000012a0| 09 65 72 72 3a 20 49 43 | 45 72 72 6f 72 3b 0d 09 |.err: IC|Error;..|
|000012b0| 09 09 6a 75 6e 6b 3a 20 | 49 43 45 72 72 6f 72 3b |..junk: |ICError;|
|000012c0| 0d 09 09 09 65 72 72 32 | 3a 20 49 43 45 72 72 6f |....err2|: ICErro|
|000012d0| 72 3b 0d 09 09 09 73 3a | 20 73 69 67 6e 65 64 42 |r;....s:| signedB|
|000012e0| 79 74 65 3b 0d 09 62 65 | 67 69 6e 0d 09 09 65 72 |yte;..be|gin...er|
|000012f0| 72 20 3a 3d 20 41 45 43 | 72 65 61 74 65 44 65 73 |r := AEC|reateDes|
|00001300| 63 28 74 79 70 65 41 70 | 70 6c 53 69 67 6e 61 74 |c(typeAp|plSignat|
|00001310| 75 72 65 2c 20 40 63 72 | 65 61 74 6f 72 2c 20 73 |ure, @cr|eator, s|
|00001320| 69 7a 65 6f 66 28 63 72 | 65 61 74 6f 72 29 2c 20 |izeof(cr|eator), |
|00001330| 74 61 72 67 65 74 41 64 | 64 72 65 73 73 29 3b 0d |targetAd|dress);.|
|00001340| 09 09 65 72 72 32 20 3a | 3d 20 41 45 43 72 65 61 |..err2 :|= AECrea|
|00001350| 74 65 41 70 70 6c 65 45 | 76 65 6e 74 28 27 47 55 |teAppleE|vent('GU|
|00001360| 52 4c 27 2c 20 27 47 55 | 52 4c 27 2c 20 74 61 72 |RL', 'GU|RL', tar|
|00001370| 67 65 74 41 64 64 72 65 | 73 73 2c 20 6b 41 75 74 |getAddre|ss, kAut|
|00001380| 6f 47 65 6e 65 72 61 74 | 65 52 65 74 75 72 6e 49 |oGenerat|eReturnI|
|00001390| 44 2c 20 6b 41 6e 79 54 | 72 61 6e 73 61 63 74 69 |D, kAnyT|ransacti|
|000013a0| 6f 6e 49 44 2c 20 74 68 | 65 45 76 65 6e 74 29 3b |onID, th|eEvent);|
|000013b0| 0d 09 09 69 66 20 65 72 | 72 20 3d 20 6e 6f 45 72 |...if er|r = noEr|
|000013c0| 72 20 74 68 65 6e 20 62 | 65 67 69 6e 0d 09 09 09 |r then b|egin....|
|000013d0| 65 72 72 20 3a 3d 20 65 | 72 72 32 3b 0d 09 09 65 |err := e|rr2;...e|
|000013e0| 6e 64 3b 20 28 2a 20 69 | 66 20 2a 29 0d 09 09 73 |nd; (* i|f *)...s|
|000013f0| 20 3a 3d 20 48 47 65 74 | 53 74 61 74 65 28 75 72 | := HGet|State(ur|
|00001400| 6c 68 29 3b 0d 09 09 48 | 4c 6f 63 6b 28 75 72 6c |lh);...H|Lock(url|
|00001410| 68 29 3b 0d 09 09 65 72 | 72 32 20 3a 3d 20 41 45 |h);...er|r2 := AE|
|00001420| 50 75 74 4b 65 79 50 74 | 72 28 74 68 65 45 76 65 |PutKeyPt|r(theEve|
|00001430| 6e 74 2c 20 6b 65 79 44 | 69 72 65 63 74 4f 62 6a |nt, keyD|irectObj|
|00001440| 65 63 74 2c 20 74 79 70 | 65 43 68 61 72 2c 20 75 |ect, typ|eChar, u|
|00001450| 72 6c 68 5e 2c 20 47 65 | 74 48 61 6e 64 6c 65 53 |rlh^, Ge|tHandleS|
|00001460| 69 7a 65 28 75 72 6c 68 | 29 29 3b 0d 09 09 48 53 |ize(urlh|));...HS|
|00001470| 65 74 53 74 61 74 65 28 | 75 72 6c 68 2c 20 73 29 |etState(|urlh, s)|
|00001480| 3b 0d 09 09 69 66 20 65 | 72 72 20 3d 20 6e 6f 45 |;...if e|rr = noE|
|00001490| 72 72 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |rr then |begin...|
|000014a0| 09 65 72 72 20 3a 3d 20 | 65 72 72 32 3b 0d 09 09 |.err := |err2;...|
|000014b0| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|000014c0| 69 66 20 65 72 72 20 3c | 3e 20 6e 6f 45 72 72 20 |if err <|> noErr |
|000014d0| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 6a 75 |then beg|in....ju|
|000014e0| 6e 6b 20 3a 3d 20 41 45 | 44 69 73 70 6f 73 65 44 |nk := AE|DisposeD|
|000014f0| 65 73 63 28 74 68 65 45 | 76 65 6e 74 29 3b 0d 09 |esc(theE|vent);..|
|00001500| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|00001510| 09 6a 75 6e 6b 20 3a 3d | 20 41 45 44 69 73 70 6f |.junk :=| AEDispo|
|00001520| 73 65 44 65 73 63 28 74 | 61 72 67 65 74 41 64 64 |seDesc(t|argetAdd|
|00001530| 72 65 73 73 29 3b 0d 09 | 09 43 72 65 61 74 65 47 |ress);..|.CreateG|
|00001540| 55 52 4c 45 76 65 6e 74 | 20 3a 3d 20 65 72 72 3b |URLEvent| := err;|
|00001550| 0d 09 65 6e 64 3b 20 28 | 2a 20 43 72 65 61 74 65 |..end; (|* Create|
|00001560| 47 55 52 4c 45 76 65 6e | 74 20 2a 29 0d 0d 09 66 |GURLEven|t *)...f|
|00001570| 75 6e 63 74 69 6f 6e 20 | 43 72 65 61 74 65 45 64 |unction |CreateEd|
|00001580| 69 74 50 72 65 66 45 76 | 65 6e 74 20 28 63 72 65 |itPrefEv|ent (cre|
|00001590| 61 74 6f 72 3a 20 4f 53 | 54 79 70 65 3b 20 6b 65 |ator: OS|Type; ke|
|000015a0| 79 3a 20 53 74 72 32 35 | 35 3b 20 70 72 65 66 73 |y: Str25|5; prefs|
|000015b0| 66 69 6c 65 3a 20 46 53 | 53 70 65 63 3b 20 76 61 |file: FS|Spec; va|
|000015c0| 72 20 74 68 65 45 76 65 | 6e 74 3a 20 41 70 70 6c |r theEve|nt: Appl|
|000015d0| 65 45 76 65 6e 74 29 3a | 20 49 43 45 72 72 6f 72 |eEvent):| ICError|
|000015e0| 3b 0d 09 09 76 61 72 0d | 09 09 09 74 61 72 67 65 |;...var.|...targe|
|000015f0| 74 41 64 64 72 65 73 73 | 3a 20 41 45 44 65 73 63 |tAddress|: AEDesc|
|00001600| 3b 0d 09 09 09 65 72 72 | 3a 20 49 43 45 72 72 6f |;....err|: ICErro|
|00001610| 72 3b 0d 09 09 09 6a 75 | 6e 6b 3a 20 49 43 45 72 |r;....ju|nk: ICEr|
|00001620| 72 6f 72 3b 0d 09 09 09 | 65 72 72 32 3a 20 49 43 |ror;....|err2: IC|
|00001630| 45 72 72 6f 72 3b 0d 09 | 62 65 67 69 6e 0d 09 09 |Error;..|begin...|
|00001640| 65 72 72 20 3a 3d 20 41 | 45 43 72 65 61 74 65 44 |err := A|ECreateD|
|00001650| 65 73 63 28 74 79 70 65 | 41 70 70 6c 53 69 67 6e |esc(type|ApplSign|
|00001660| 61 74 75 72 65 2c 20 40 | 63 72 65 61 74 6f 72 2c |ature, @|creator,|
|00001670| 20 73 69 7a 65 6f 66 28 | 63 72 65 61 74 6f 72 29 | sizeof(|creator)|
|00001680| 2c 20 74 61 72 67 65 74 | 41 64 64 72 65 73 73 29 |, target|Address)|
|00001690| 3b 0d 09 09 65 72 72 32 | 20 3a 3d 20 41 45 43 72 |;...err2| := AECr|
|000016a0| 65 61 74 65 41 70 70 6c | 65 45 76 65 6e 74 28 27 |eateAppl|eEvent('|
|000016b0| 49 43 41 70 27 2c 20 27 | 49 43 41 70 27 2c 20 74 |ICAp', '|ICAp', t|
|000016c0| 61 72 67 65 74 41 64 64 | 72 65 73 73 2c 20 6b 41 |argetAdd|ress, kA|
|000016d0| 75 74 6f 47 65 6e 65 72 | 61 74 65 52 65 74 75 72 |utoGener|ateRetur|
|000016e0| 6e 49 44 2c 20 6b 41 6e | 79 54 72 61 6e 73 61 63 |nID, kAn|yTransac|
|000016f0| 74 69 6f 6e 49 44 2c 20 | 74 68 65 45 76 65 6e 74 |tionID, |theEvent|
|00001700| 29 3b 0d 09 09 69 66 20 | 65 72 72 20 3d 20 6e 6f |);...if |err = no|
|00001710| 45 72 72 20 74 68 65 6e | 20 62 65 67 69 6e 0d 09 |Err then| begin..|
|00001720| 09 09 65 72 72 20 3a 3d | 20 65 72 72 32 3b 0d 09 |..err :=| err2;..|
|00001730| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|00001740| 09 65 72 72 32 20 3a 3d | 20 41 45 50 75 74 4b 65 |.err2 :=| AEPutKe|
|00001750| 79 50 74 72 28 74 68 65 | 45 76 65 6e 74 2c 20 27 |yPtr(the|Event, '|
|00001760| 2d 2d 2d 2d 27 2c 20 27 | 54 45 58 54 27 2c 20 40 |----', '|TEXT', @|
|00001770| 6b 65 79 5b 31 5d 2c 20 | 6c 65 6e 67 74 68 28 6b |key[1], |length(k|
|00001780| 65 79 29 29 3b 0d 09 09 | 69 66 20 65 72 72 20 3d |ey));...|if err =|
|00001790| 20 6e 6f 45 72 72 20 74 | 68 65 6e 20 62 65 67 69 | noErr t|hen begi|
|000017a0| 6e 0d 09 09 09 65 72 72 | 20 3a 3d 20 65 72 72 32 |n....err| := err2|
|000017b0| 3b 0d 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |;...end;| (* if *|
|000017c0| 29 0d 09 09 65 72 72 32 | 20 3a 3d 20 41 45 50 75 |)...err2| := AEPu|
|000017d0| 74 4b 65 79 50 74 72 28 | 74 68 65 45 76 65 6e 74 |tKeyPtr(|theEvent|
|000017e0| 2c 20 27 64 65 73 74 27 | 2c 20 27 66 73 73 20 27 |, 'dest'|, 'fss '|
|000017f0| 2c 20 40 70 72 65 66 73 | 66 69 6c 65 2c 20 73 69 |, @prefs|file, si|
|00001800| 7a 65 6f 66 28 70 72 65 | 66 73 66 69 6c 65 29 29 |zeof(pre|fsfile))|
|00001810| 3b 0d 09 09 69 66 20 65 | 72 72 20 3d 20 6e 6f 45 |;...if e|rr = noE|
|00001820| 72 72 20 74 68 65 6e 20 | 62 65 67 69 6e 0d 09 09 |rr then |begin...|
|00001830| 09 65 72 72 20 3a 3d 20 | 65 72 72 32 3b 0d 09 09 |.err := |err2;...|
|00001840| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|00001850| 69 66 20 65 72 72 20 3c | 3e 20 6e 6f 45 72 72 20 |if err <|> noErr |
|00001860| 74 68 65 6e 20 62 65 67 | 69 6e 0d 09 09 09 6a 75 |then beg|in....ju|
|00001870| 6e 6b 20 3a 3d 20 41 45 | 44 69 73 70 6f 73 65 44 |nk := AE|DisposeD|
|00001880| 65 73 63 28 74 68 65 45 | 76 65 6e 74 29 3b 0d 09 |esc(theE|vent);..|
|00001890| 09 65 6e 64 3b 20 28 2a | 20 69 66 20 2a 29 0d 09 |.end; (*| if *)..|
|000018a0| 09 6a 75 6e 6b 20 3a 3d | 20 41 45 44 69 73 70 6f |.junk :=| AEDispo|
|000018b0| 73 65 44 65 73 63 28 74 | 61 72 67 65 74 41 64 64 |seDesc(t|argetAdd|
|000018c0| 72 65 73 73 29 3b 0d 09 | 09 43 72 65 61 74 65 45 |ress);..|.CreateE|
|000018d0| 64 69 74 50 72 65 66 45 | 76 65 6e 74 20 3a 3d 20 |ditPrefE|vent := |
|000018e0| 65 72 72 3b 0d 09 65 6e | 64 3b 20 28 2a 20 43 72 |err;..en|d; (* Cr|
|000018f0| 65 61 74 65 45 64 69 74 | 50 72 65 66 45 76 65 6e |eateEdit|PrefEven|
|00001900| 74 20 2a 29 0d 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |t *)...f|unction |
|00001910| 4c 61 75 6e 63 68 46 53 | 53 70 65 63 20 28 76 61 |LaunchFS|Spec (va|
|00001920| 72 20 66 73 3a 20 46 53 | 53 70 65 63 3b 20 74 68 |r fs: FS|Spec; th|
|00001930| 65 45 76 65 6e 74 3a 20 | 41 70 70 6c 65 45 76 65 |eEvent: |AppleEve|
|00001940| 6e 74 29 3a 20 49 43 45 | 72 72 6f 72 3b 0d 09 09 |nt): ICE|rror;...|
|00001950| 76 61 72 0d 09 09 09 6c | 61 75 6e 63 68 54 68 69 |var....l|aunchThi|
|00001960| 73 3a 20 4c 61 75 6e 63 | 68 50 61 72 61 6d 42 6c |s: Launc|hParamBl|
|00001970| 6f 63 6b 52 65 63 3b 0d | 09 09 09 6c 61 75 6e 63 |ockRec;.|...launc|
|00001980| 68 44 65 73 63 3a 20 41 | 45 44 65 73 63 3b 0d 09 |hDesc: A|EDesc;..|
|00001990| 09 09 65 72 72 3a 20 49 | 43 45 72 72 6f 72 3b 0d |..err: I|CError;.|
|000019a0| 09 62 65 67 69 6e 0d 09 | 09 6c 61 75 6e 63 68 54 |.begin..|.launchT|
|000019b0| 68 69 73 2e 6c 61 75 6e | 63 68 41 70 70 53 70 65 |his.laun|chAppSpe|
|000019c0| 63 20 3a 3d 20 40 66 73 | 3b 0d 09 09 65 72 72 20 |c := @fs|;...err |
|000019d0| 3a 3d 20 50 72 65 70 61 | 72 65 54 6f 4c 61 75 6e |:= Prepa|reToLaun|
|000019e0| 63 68 28 74 68 65 45 76 | 65 6e 74 2c 20 74 72 75 |ch(theEv|ent, tru|
|000019f0| 65 2c 20 6c 61 75 6e 63 | 68 54 68 69 73 29 3b 0d |e, launc|hThis);.|
|00001a00| 09 09 69 66 20 65 72 72 | 20 3d 20 6e 6f 45 72 72 |..if err| = noErr|
|00001a10| 20 74 68 65 6e 20 62 65 | 67 69 6e 0d 09 09 09 65 | then be|gin....e|
|00001a20| 72 72 20 3a 3d 20 4c 61 | 75 6e 63 68 41 70 70 6c |rr := La|unchAppl|
|00001a30| 69 63 61 74 69 6f 6e 28 | 40 6c 61 75 6e 63 68 54 |ication(|@launchT|
|00001a40| 68 69 73 29 3b 0d 09 09 | 65 6e 64 3b 20 28 2a 20 |his);...|end; (* |
|00001a50| 69 66 20 2a 29 0d 09 09 | 69 66 20 65 72 72 20 3d |if *)...|if err =|
|00001a60| 20 6d 65 6d 46 75 6c 6c | 45 72 72 20 74 68 65 6e | memFull|Err then|
|00001a70| 20 62 65 67 69 6e 0d 09 | 09 09 6c 61 75 6e 63 68 | begin..|..launch|
|00001a80| 54 68 69 73 2e 6c 61 75 | 6e 63 68 43 6f 6e 74 72 |This.lau|nchContr|
|00001a90| 6f 6c 46 6c 61 67 73 20 | 3a 3d 20 62 6f 72 28 6c |olFlags |:= bor(l|
|00001aa0| 61 75 6e 63 68 54 68 69 | 73 2e 6c 61 75 6e 63 68 |aunchThi|s.launch|
|00001ab0| 43 6f 6e 74 72 6f 6c 46 | 6c 61 67 73 2c 20 6c 61 |ControlF|lags, la|
|00001ac0| 75 6e 63 68 55 73 65 4d | 69 6e 69 6d 75 6d 29 3b |unchUseM|inimum);|
|00001ad0| 0d 09 09 09 65 72 72 20 | 3a 3d 20 4c 61 75 6e 63 |....err |:= Launc|
|00001ae0| 68 41 70 70 6c 69 63 61 | 74 69 6f 6e 28 40 6c 61 |hApplica|tion(@la|
|00001af0| 75 6e 63 68 54 68 69 73 | 29 3b 0d 09 09 65 6e 64 |unchThis|);...end|
|00001b00| 3b 20 28 2a 20 69 66 20 | 2a 29 0d 09 09 4c 61 75 |; (* if |*)...Lau|
|00001b10| 6e 63 68 46 53 53 70 65 | 63 20 3a 3d 20 65 72 72 |nchFSSpe|c := err|
|00001b20| 3b 0d 09 65 6e 64 3b 20 | 28 2a 20 4c 61 75 6e 63 |;..end; |(* Launc|
|00001b30| 68 46 53 53 70 65 63 20 | 2a 29 0d 0d 09 66 75 6e |hFSSpec |*)...fun|
|00001b40| 63 74 69 6f 6e 20 53 65 | 6e 64 45 76 65 6e 74 20 |ction Se|ndEvent |
|00001b50| 28 74 68 65 45 76 65 6e | 74 3a 20 41 70 70 6c 65 |(theEven|t: Apple|
|00001b60| 45 76 65 6e 74 3b 20 63 | 72 65 61 74 6f 72 3a 20 |Event; c|reator: |
|00001b70| 4f 53 54 79 70 65 29 3a | 20 49 43 45 72 72 6f 72 |OSType):| ICError|
|00001b80| 3b 0d 09 09 76 61 72 0d | 09 09 09 65 72 72 3a 20 |;...var.|...err: |
|00001b90| 49 43 45 72 72 6f 72 3b | 0d 09 09 09 70 73 6e 3a |ICError;|....psn:|
|00001ba0| 20 50 72 6f 63 65 73 73 | 53 65 72 69 61 6c 4e 75 | Process|SerialNu|
|00001bb0| 6d 62 65 72 3b 0d 09 09 | 09 61 70 70 5f 66 73 3a |mber;...|.app_fs:|
|00001bc0| 20 46 53 53 70 65 63 3b | 0d 09 09 09 6a 75 6e 6b | FSSpec;|....junk|
|00001bd0| 3a 20 49 43 45 72 72 6f | 72 3b 0d 09 09 09 72 65 |: ICErro|r;....re|
|00001be0| 70 6c 79 3a 20 41 70 70 | 6c 65 45 76 65 6e 74 3b |ply: App|leEvent;|
|00001bf0| 0d 09 62 65 67 69 6e 0d | 09 09 69 66 20 46 69 6e |..begin.|..if Fin|
|00001c00| 64 50 72 6f 63 65 73 73 | 28 63 72 65 61 74 6f 72 |dProcess|(creator|
|00001c10| 2c 20 27 41 50 50 4c 27 | 2c 20 70 73 6e 2c 20 61 |, 'APPL'|, psn, a|
|00001c20| 70 70 5f 66 73 29 20 74 | 68 65 6e 20 62 65 67 69 |pp_fs) t|hen begi|
|00001c30| 6e 0d 09 09 09 6a 75 6e | 6b 20 3a 3d 20 53 65 74 |n....jun|k := Set|
|00001c40| 46 72 6f 6e 74 50 72 6f | 63 65 73 73 28 70 73 6e |FrontPro|cess(psn|
|00001c50| 29 3b 0d 09 09 09 65 72 | 72 20 3a 3d 20 41 45 53 |);....er|r := AES|
|00001c60| 65 6e 64 28 74 68 65 45 | 76 65 6e 74 2c 20 72 65 |end(theE|vent, re|
|00001c70| 70 6c 79 2c 20 6b 41 45 | 4e 6f 52 65 70 6c 79 2c |ply, kAE|NoReply,|
|00001c80| 20 6b 41 45 48 69 67 68 | 50 72 69 6f 72 69 74 79 | kAEHigh|Priority|
|00001c90| 2c 20 6b 4e 6f 54 69 6d | 65 4f 75 74 2c 20 6e 69 |, kNoTim|eOut, ni|
|00001ca0| 6c 2c 20 6e 69 6c 29 3b | 0d 09 09 65 6e 64 0d 09 |l, nil);|...end..|
|00001cb0| 09 65 6c 73 65 20 62 65 | 67 69 6e 0d 09 09 09 65 |.else be|gin....e|
|00001cc0| 72 72 20 3a 3d 20 46 69 | 6e 64 41 70 70 6c 69 63 |rr := Fi|ndApplic|
|00001cd0| 61 74 69 6f 6e 28 63 72 | 65 61 74 6f 72 2c 20 61 |ation(cr|eator, a|
|00001ce0| 70 70 5f 66 73 29 3b 0d | 09 09 09 69 66 20 65 72 |pp_fs);.|...if er|
|00001cf0| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|00001d00| 65 67 69 6e 0d 09 09 09 | 09 65 72 72 20 3a 3d 20 |egin....|.err := |
|00001d10| 4c 61 75 6e 63 68 46 53 | 53 70 65 63 28 61 70 70 |LaunchFS|Spec(app|
|00001d20| 5f 66 73 2c 20 74 68 65 | 45 76 65 6e 74 29 3b 0d |_fs, the|Event);.|
|00001d30| 09 09 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |...end; |(* if *)|
|00001d40| 0d 09 09 65 6e 64 3b 20 | 28 2a 20 69 66 20 2a 29 |...end; |(* if *)|
|00001d50| 0d 09 09 53 65 6e 64 45 | 76 65 6e 74 20 3a 3d 20 |...SendE|vent := |
|00001d60| 65 72 72 3b 0d 09 65 6e | 64 3b 20 28 2a 20 53 65 |err;..en|d; (* Se|
|00001d70| 6e 64 45 76 65 6e 74 20 | 2a 29 0d 0d 09 66 75 6e |ndEvent |*)...fun|
|00001d80| 63 74 69 6f 6e 20 45 64 | 69 74 50 72 65 66 65 72 |ction Ed|itPrefer|
|00001d90| 65 6e 63 65 73 20 28 6b | 65 79 3a 20 53 74 72 32 |ences (k|ey: Str2|
|00001da0| 35 35 3b 20 70 72 65 66 | 73 66 69 6c 65 3a 20 46 |55; pref|sfile: F|
|00001db0| 53 53 70 65 63 29 3a 20 | 49 43 45 72 72 6f 72 3b |SSpec): |ICError;|
|00001dc0| 0d 09 09 76 61 72 0d 09 | 09 09 65 72 72 3a 20 49 |...var..|..err: I|
|00001dd0| 43 45 72 72 6f 72 3b 0d | 09 09 09 6a 75 6e 6b 3a |CError;.|...junk:|
|00001de0| 20 49 43 45 72 72 6f 72 | 3b 0d 09 09 09 74 68 65 | ICError|;....the|
|00001df0| 45 76 65 6e 74 3a 20 41 | 70 70 6c 65 45 76 65 6e |Event: A|ppleEven|
|00001e00| 74 3b 0d 09 62 65 67 69 | 6e 0d 09 09 65 72 72 20 |t;..begi|n...err |
|00001e10| 3a 3d 20 48 61 76 65 50 | 72 6f 63 65 73 73 4d 61 |:= HaveP|rocessMa|
|00001e20| 6e 61 67 65 72 3b 0d 09 | 09 69 66 20 65 72 72 20 |nager;..|.if err |
|00001e30| 3d 20 6e 6f 45 72 72 20 | 74 68 65 6e 20 62 65 67 |= noErr |then beg|
|00001e40| 69 6e 0d 09 09 09 65 72 | 72 20 3a 3d 20 43 72 65 |in....er|r := Cre|
|00001e50| 61 74 65 45 64 69 74 50 | 72 65 66 45 76 65 6e 74 |ateEditP|refEvent|
|00001e60| 28 49 43 63 72 65 61 74 | 6f 72 2c 20 6b 65 79 2c |(ICcreat|or, key,|
|00001e70| 20 70 72 65 66 73 66 69 | 6c 65 2c 20 74 68 65 45 | prefsfi|le, theE|
|00001e80| 76 65 6e 74 29 3b 0d 09 | 09 09 69 66 20 65 72 72 |vent);..|..if err|
|00001e90| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|00001ea0| 67 69 6e 0d 09 09 09 09 | 65 72 72 20 3a 3d 20 53 |gin.....|err := S|
|00001eb0| 65 6e 64 45 76 65 6e 74 | 28 74 68 65 45 76 65 6e |endEvent|(theEven|
|00001ec0| 74 2c 20 49 43 63 72 65 | 61 74 6f 72 29 3b 0d 09 |t, ICcre|ator);..|
|00001ed0| 09 09 65 6e 64 3b 20 28 | 2a 20 69 66 20 2a 29 0d |..end; (|* if *).|
|00001ee0| 09 09 09 6a 75 6e 6b 20 | 3a 3d 20 41 45 44 69 73 |...junk |:= AEDis|
|00001ef0| 70 6f 73 65 44 65 73 63 | 28 74 68 65 45 76 65 6e |poseDesc|(theEven|
|00001f00| 74 29 3b 0d 09 09 65 6e | 64 3b 20 28 2a 20 69 66 |t);...en|d; (* if|
|00001f10| 20 2a 29 0d 09 09 45 64 | 69 74 50 72 65 66 65 72 | *)...Ed|itPrefer|
|00001f20| 65 6e 63 65 73 20 3a 3d | 20 65 72 72 3b 0d 09 65 |ences :=| err;..e|
|00001f30| 6e 64 3b 20 28 2a 20 45 | 64 69 74 50 72 65 66 65 |nd; (* E|ditPrefe|
|00001f40| 72 65 6e 63 65 73 20 2a | 29 0d 0d 09 66 75 6e 63 |rences *|)...func|
|00001f50| 74 69 6f 6e 20 46 69 6e | 64 53 63 68 65 6d 65 20 |tion Fin|dScheme |
|00001f60| 28 75 72 6c 68 3a 20 48 | 61 6e 64 6c 65 3b 20 76 |(urlh: H|andle; v|
|00001f70| 61 72 20 73 63 68 65 6d | 65 3a 20 53 74 72 32 35 |ar schem|e: Str25|
|00001f80| 35 29 3a 20 49 43 45 72 | 72 6f 72 3b 0d 09 09 76 |5): ICEr|ror;...v|
|00001f90| 61 72 0d 09 09 09 65 72 | 72 3a 20 49 43 45 72 72 |ar....er|r: ICErr|
|00001fa0| 6f 72 3b 0d 09 09 09 74 | 6d 70 3a 20 53 74 72 31 |or;....t|mp: Str1|
|00001fb0| 35 3b 0d 09 09 09 6e 64 | 78 3a 20 6c 6f 6e 67 69 |5;....nd|x: longi|
|00001fc0| 6e 74 3b 0d 09 62 65 67 | 69 6e 0d 09 09 65 72 72 |nt;..beg|in...err|
|00001fd0| 20 3a 3d 20 6e 6f 45 72 | 72 3b 0d 09 09 74 6d 70 | := noEr|r;...tmp|
|00001fe0| 20 3a 3d 20 27 3a 27 3b | 0d 09 09 6e 64 78 20 3a | := ':';|...ndx :|
|00001ff0| 3d 20 4d 75 6e 67 65 72 | 28 48 61 6e 64 6c 65 28 |= Munger|(Handle(|
|00002000| 75 72 6c 68 29 2c 20 30 | 2c 20 40 74 6d 70 5b 31 |urlh), 0|, @tmp[1|
|00002010| 5d 2c 20 6c 65 6e 67 74 | 68 28 74 6d 70 29 2c 20 |], lengt|h(tmp), |
|00002020| 6e 69 6c 2c 20 30 29 3b | 0d 09 09 69 66 20 28 6e |nil, 0);|...if (n|
|00002030| 64 78 20 3c 20 30 29 20 | 6f 72 20 28 6e 64 78 20 |dx < 0) |or (ndx |
|00002040| 3e 20 32 35 35 29 20 74 | 68 65 6e 20 62 65 67 69 |> 255) t|hen begi|
|00002050| 6e 0d 09 09 09 65 72 72 | 20 3a 3d 20 69 63 4e 6f |n....err| := icNo|
|00002060| 55 52 4c 45 72 72 3b 0d | 09 09 65 6e 64 3b 20 28 |URLErr;.|..end; (|
|00002070| 2a 20 69 66 20 2a 29 0d | 09 09 69 66 20 65 72 72 |* if *).|..if err|
|00002080| 20 3d 20 6e 6f 45 72 72 | 20 74 68 65 6e 20 62 65 | = noErr| then be|
|00002090| 67 69 6e 0d 7b 24 70 75 | 73 68 7d 0d 7b 24 72 2d |gin.{$pu|sh}.{$r-|
|000020a0| 7d 0d 09 09 09 73 63 68 | 65 6d 65 5b 30 5d 20 3a |}....sch|eme[0] :|
|000020b0| 3d 20 63 68 72 28 6e 64 | 78 29 3b 0d 09 09 09 42 |= chr(nd|x);....B|
|000020c0| 6c 6f 63 6b 4d 6f 76 65 | 28 75 72 6c 68 5e 2c 20 |lockMove|(urlh^, |
|000020d0| 40 73 63 68 65 6d 65 5b | 31 5d 2c 20 6e 64 78 29 |@scheme[|1], ndx)|
|000020e0| 3b 0d 7b 24 70 6f 70 7d | 0d 09 09 65 6e 64 3b 20 |;.{$pop}|...end; |
|000020f0| 28 2a 20 69 66 20 2a 29 | 0d 09 09 46 69 6e 64 53 |(* if *)|...FindS|
|00002100| 63 68 65 6d 65 20 3a 3d | 20 65 72 72 3b 0d 09 65 |cheme :=| err;..e|
|00002110| 6e 64 3b 20 28 2a 20 46 | 69 6e 64 53 63 68 65 6d |nd; (* F|indSchem|
|00002120| 65 20 2a 29 0d 0d 09 66 | 75 6e 63 74 69 6f 6e 20 |e *)...f|unction |
|00002130| 4c 61 75 6e 63 68 55 52 | 4c 20 28 68 65 6c 70 65 |LaunchUR|L (helpe|
|00002140| 72 3a 20 4f 53 54 79 70 | 65 3b 20 75 72 6c 68 3a |r: OSTyp|e; urlh:|
|00002150| 20 48 61 6e 64 6c 65 29 | 3a 20 49 43 45 72 72 6f | Handle)|: ICErro|
|00002160| 72 3b 0d 09 09 76 61 72 | 0d 09 09 09 65 72 72 3a |r;...var|....err:|
|00002170| 20 49 43 45 72 72 6f 72 | 3b 0d 09 09 09 6a 75 6e | ICError|;....jun|
|00002180| 6b 3a 20 49 43 45 72 72 | 6f 72 3b 0d 09 09 09 74 |k: ICErr|or;....t|
|00002190| 68 65 45 76 65 6e 74 3a | 20 41 70 70 6c 65 45 76 |heEvent:| AppleEv|
|000021a0| 65 6e 74 3b 0d 09 62 65 | 67 69 6e 0d 09 09 65 72 |ent;..be|gin...er|
|000021b0| 72 20 3a 3d 20 48 61 76 | 65 50 72 6f 63 65 73 73 |r := Hav|eProcess|
|000021c0| 4d 61 6e 61 67 65 72 3b | 0d 09 09 69 66 20 65 72 |Manager;|...if er|
|000021d0| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|000021e0| 65 67 69 6e 0d 09 09 09 | 65 72 72 20 3a 3d 20 43 |egin....|err := C|
|000021f0| 72 65 61 74 65 47 55 52 | 4c 45 76 65 6e 74 28 68 |reateGUR|LEvent(h|
|00002200| 65 6c 70 65 72 2c 20 75 | 72 6c 68 2c 20 74 68 65 |elper, u|rlh, the|
|00002210| 45 76 65 6e 74 29 3b 0d | 09 09 09 69 66 20 65 72 |Event);.|...if er|
|00002220| 72 20 3d 20 6e 6f 45 72 | 72 20 74 68 65 6e 20 62 |r = noEr|r then b|
|00002230| 65 67 69 6e 0d 09 09 09 | 09 65 72 72 20 3a 3d 20 |egin....|.err := |
|00002240| 53 65 6e 64 45 76 65 6e | 74 28 74 68 65 45 76 65 |SendEven|t(theEve|
|00002250| 6e 74 2c 20 68 65 6c 70 | 65 72 29 3b 0d 09 09 09 |nt, help|er);....|
|00002260| 65 6e 64 3b 20 28 2a 20 | 69 66 20 2a 29 0d 09 09 |end; (* |if *)...|
|00002270| 09 6a 75 6e 6b 20 3a 3d | 20 41 45 44 69 73 70 6f |.junk :=| AEDispo|
|00002280| 73 65 44 65 73 63 28 74 | 68 65 45 76 65 6e 74 29 |seDesc(t|heEvent)|
|00002290| 3b 0d 09 09 65 6e 64 3b | 20 28 2a 20 69 66 20 2a |;...end;| (* if *|
|000022a0| 29 0d 09 09 4c 61 75 6e | 63 68 55 52 4c 20 3a 3d |)...Laun|chURL :=|
|000022b0| 20 65 72 72 3b 0d 09 65 | 6e 64 3b 20 28 2a 20 4c | err;..e|nd; (* L|
|000022c0| 61 75 6e 63 68 55 52 4c | 20 2a 29 0d 0d 65 6e 64 |aunchURL| *)..end|
|000022d0| 2e 20 28 2a 20 49 43 52 | 53 75 62 73 20 2a 29 00 |. (* ICR|Subs *).|
|000022e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000022f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002300| 00 00 01 00 00 00 07 5c | 00 00 06 5c 00 00 00 98 |.......\|...\....|
|00002310| 09 09 09 09 66 69 6c 65 | 5f 63 72 65 61 74 6f 72 |....file|_creator|
|00002320| 3a 20 4f 53 54 79 70 65 | 3b 0d 09 09 09 09 70 6f |: OSType|;.....po|
|00002330| 09 49 43 52 53 75 62 73 | 2e 70 02 00 00 00 54 45 |.ICRSubs|.p....TE|
|00002340| 58 54 50 4a 4d 4d 01 00 | 00 3c 00 00 00 00 00 00 |XTPJMM..|.<......|
|00002350| 00 00 54 45 58 54 50 4a | 4d 4d 01 00 00 3c 00 00 |..TEXTPJ|MM...<..|
|00002360| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002370| 00 00 ab 64 57 80 00 00 | 22 5f 00 00 07 f4 09 09 |...dW...|"_......|
|00002380| 65 78 74 65 6e 73 69 6f | 6e 3a 20 53 74 72 32 35 |extensio|n: Str25|
|00002390| 35 3b 09 09 09 09 09 28 | 2a 20 74 68 65 73 65 20 |5;.....(|* these |
|000023a0| 73 74 72 69 6e 67 73 20 | 61 72 65 20 74 69 67 68 |strings |are tigh|
|000023b0| 74 6c 79 20 70 61 63 6b | 65 64 20 2a 29 0d 09 09 |tly pack|ed *)...|
|000023c0| 09 09 63 72 65 61 74 6f | 72 5f 61 70 70 5f 6e 61 |..creato|r_app_na|
|000023d0| 6d 65 3a 20 53 74 72 32 | 35 35 3b 09 09 28 2a 20 |me: Str2|55;..(* |
|000023e0| 77 68 69 63 68 20 6d 65 | 61 6e 73 2c 20 74 68 65 |which me|ans, the|
|000023f0| 73 65 20 6f 6e 65 73 20 | 6d 69 67 68 74 20 68 61 |se ones |might ha|
|00002400| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 69 74 50 |...H..Mo|naco.itP|
|00002410| 72 65 66 65 72 65 6e 63 | 65 73 20 28 6b 65 79 3a |referenc|es (key:|
|00002420| 20 53 74 72 32 35 00 06 | 00 02 00 64 00 1c 01 dd | Str25..|...d....|
|00002430| 02 3d 00 64 00 1c 01 dd | 02 3d ab c0 3d 33 00 00 |.=.d....|.=..=3..|
|00002440| 1a 19 00 00 1a 19 00 00 | 19 20 01 00 00 00 00 1e |........|. ......|
|00002450| 00 64 00 1c 01 dd 02 3d | 00 64 00 1c 01 dd 02 3d |.d.....=|.d.....=|
|00002460| 00 00 19 20 00 00 00 00 | 00 00 00 00 00 00 00 00 |... ....|........|
|00002470| 00 78 0e 50 61 73 63 61 | 6c 20 53 79 6d 62 6f 6c |.x.Pasca|l Symbol|
|00002480| 73 00 07 49 43 52 53 55 | 42 53 06 49 43 4b 45 59 |s..ICRSU|BS.ICKEY|
|00002490| 53 53 07 49 43 54 59 50 | 45 53 07 41 4c 49 41 53 |SS.ICTYP|ES.ALIAS|
|000024a0| 45 53 09 41 50 50 4c 45 | 54 41 4c 4b 09 54 4f 4f |ES.APPLE|TALK.TOO|
|000024b0| 4c 55 54 49 4c 53 06 45 | 52 52 4f 52 53 50 06 4d |LUTILS.E|RRORSP.M|
|000024c0| 45 4d 4f 52 59 50 05 46 | 49 4c 45 53 05 54 59 50 |EMORYP.F|ILES.TYP|
|000024d0| 45 53 0a 43 4f 4d 50 4f | 4e 45 4e 54 53 54 0b 49 |ES.COMPO|NENTST.I|
|000024e0| 43 43 4f 4d 50 4f 4e 45 | 4e 54 00 00 04 50 00 6e |CCOMPONE|NT...P.n|
|000024f0| 07 49 43 52 53 55 42 53 | 4c 4b 43 41 4c 4f 4e 54 |.ICRSUBS|LKCALONT|
|00002500| 54 45 52 53 00 00 00 00 | 00 00 00 00 00 00 00 00 |TERS....|........|
|00002510| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002520| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002530| 00 c0 00 a0 01 00 00 6c | ff ff ff ff 00 7d b2 50 |.......l|.....}.P|
|00002540| 00 00 00 00 01 00 06 72 | 00 00 00 00 01 00 04 50 |.......r|.......P|
|00002550| 00 00 00 00 ab cd 7f 25 | 00 00 00 00 0f 45 44 49 |.......%|.....EDI|
|00002560| 54 50 52 45 46 45 52 45 | 4e 43 45 53 54 45 52 53 |TPREFERE|NCESTERS|
|00002570| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002580| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002590| 00 00 00 00 00 00 00 00 | 00 00 00 00 eb 97 00 00 |........|........|
|000025a0| ff ff ff ff 01 00 01 b8 | ff ff ff ff 00 00 00 00 |........|........|
|000025b0| 01 00 05 01 00 01 01 00 | 00 dc ff ff 01 05 00 10 |........|........|
|000025c0| ff ff 00 00 01 46 00 00 | 00 00 00 64 03 4b 45 59 |.....F..|...d.KEY|
|000025d0| 54 50 52 45 46 45 52 45 | 4e 43 45 53 54 45 52 53 |TPREFERE|NCESTERS|
|000025e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000025f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002600| 00 00 00 00 00 00 00 00 | 00 00 00 00 c9 00 52 00 |........|......R.|
|00002610| 01 00 01 4a ff ff ff ff | 01 00 01 4a 0b 00 09 00 |...J....|...J....|
|00002620| 01 00 02 00 08 6f ff ff | 00 02 ff ff ff 00 75 6d |.....o..|......um|
|00002630| 62 65 72 00 00 00 00 09 | 00 69 09 50 52 45 46 53 |ber.....|.i.PREFS|
|00002640| 46 49 4c 45 52 45 4e 43 | 45 53 54 45 52 53 00 00 |FILERENC|ESTERS..|
|00002650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002670| 00 00 00 00 00 00 00 00 | 00 00 3f 3c 00 06 ff ff |........|..?<....|
|00002680| ff ff ff ff ff ff ff ff | ff ff 09 00 e0 7a 01 00 |........|.....z..|
|00002690| 02 00 0f 46 ff ff 00 02 | ff ff fe ba 6e 65 20 c5 |...F....|....ne .|
|000026a0| 2f 3a c6 2f 5b b6 00 b6 | 0a 46 49 4e 44 53 43 48 |/:./[...|.FINDSCH|
|000026b0| 45 4d 45 45 4e 43 45 53 | 54 45 52 53 00 00 00 00 |EMEENCES|TERS....|
|000026c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000026e0| 00 00 00 00 00 00 00 00 | b7 b7 20 44 ff ff ff ff |........|.. D....|
|000026f0| 01 00 03 04 ff ff ff ff | 00 00 00 00 01 00 05 01 |........|........|
|00002700| 00 01 01 00 02 28 ff ff | 01 70 00 10 ff ff 00 00 |.....(..|.p......|
|00002710| 00 00 00 00 00 00 00 ad | 04 55 52 4c 48 53 43 48 |........|.URLHSCH|
|00002720| 45 4d 45 45 4e 43 45 53 | 54 45 52 53 00 00 00 00 |EMEENCES|TERS....|
|00002730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002750| 00 00 00 00 00 00 00 00 | ca 70 41 6c 01 00 02 96 |........|.pAl....|
|00002760| ff ff ff ff 01 00 02 96 | 0b 00 02 a2 01 00 02 00 |........|........|
|00002770| 0e 20 ff ff 00 02 00 00 | 00 0c 69 76 65 7d 22 60 |. ......|..ive}"`|
|00002780| 00 2e ff e6 00 ad 06 53 | 43 48 45 4d 45 48 45 4d |.......S|CHEMEHEM|
|00002790| 45 45 4e 43 45 53 54 45 | 52 53 00 00 00 00 00 00 |EENCESTE|RS......|
|000027a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000027c0| 00 00 00 00 00 00 74 7d | 22 00 ff ff ff ff ff ff |......t}|".......|
|000027d0| ff ff ff ff ff ff 0b 00 | 09 00 01 00 02 01 0f 35 |........|.......5|
|000027e0| ff ff 00 02 00 00 00 08 | 4e ad 01 f2 10 1f 00 00 |........|N.......|
|000027f0| 00 00 00 00 09 4c 41 55 | 4e 43 48 55 52 4c 45 45 |.....LAU|NCHURLEE|
|00002800| 4e 43 45 53 54 45 52 53 | 00 00 00 00 00 00 00 00 |NCESTERS|........|
|00002810| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002830| 00 00 00 00 22 20 20 3b | ff ff ff ff ff ff ff ff |...."  ;|........|
|00002840| ff ff ff ff 00 00 00 00 | 01 00 05 01 00 01 01 00 |........|........|
|00002850| 03 74 ff ff 01 6e 00 10 | ff ff 00 00 00 00 00 00 |.t...n..|........|
|00002860| 00 00 00 65 06 48 45 4c | 50 45 52 55 52 4c 45 45 |...e.HEL|PERURLEE|
|00002870| 4e 43 45 53 54 45 52 53 | 00 00 00 00 00 00 00 00 |NCESTERS|........|
|00002880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000028a0| 00 00 00 00 70 1e b0 2d | ff ff ff ff 01 00 03 e2 |....p..-|........|
|000028b0| 01 00 03 e2 0b 00 0c 1a | 01 00 02 00 12 65 ff ff |........|.....e..|
|000028c0| 00 02 00 00 00 0c 02 1a | 10 1f 67 62 70 04 00 00 |........|..gbp...|
|000028d0| 00 00 04 55 52 4c 48 50 | 45 55 52 4c 45 45 4e 43 |...URLHP|EURLEENC|
|000028e0| 45 53 54 45 52 53 00 00 | 00 00 00 00 00 00 00 00 |ESTERS..|........|
|000028f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002910| 00 00 00 00 80 01 ff ff | ff ff ff ff ff ff ff ff |........|........|
|00002920| ff ff 0b 00 02 a2 01 00 | 02 00 05 43 ff ff 00 02 |........|...C....|
|00002930| 00 00 00 08 07 92 10 2d | ed 01 67 0c 2f 2d 00 00 |.......-|..g./-..|
|00002940| 00 3e 00 0f 0c 54 48 49 | 4e 4b 5f 50 41 53 43 41 |.>...THI|NK_PASCA|
|00002950| 4c 4c 0c 55 53 49 4e 47 | 44 49 41 4c 4f 47 53 44 |LL.USING|DIALOGSD|
|00002960| 0c 55 53 49 4e 47 44 49 | 41 4c 4f 47 53 43 0c 55 |.USINGDI|ALOGSC.U|
|00002970| 53 49 4e 47 57 49 4e 44 | 4f 57 53 55 0c 55 53 49 |SINGWIND|OWSU.USI|
|00002980| 00 00 00 d8 a5 76 72 9e | ab cd 7f 25 ab c0 3d 33 |.....vr.|...%..=3|
|00002990| 00 00 ff ff ff ff 42 85 | 0a 08 00 00 00 00 00 01 |......B.|........|
|000029a0| 01 00 00 2d 00 0c 00 74 | ee 5e 00 75 23 3a 00 04 |...-...t|.^.u#:..|
|000029b0| a0 23 2f 2d 00 7d e8 34 | 00 7d ec 84 00 0e ab cd |.#/-.}.4|.}......|
|000029c0| 7f 25 00 00 00 00 00 00 | 00 00 00 00 ab cd 7f 25 |.%......|.......%|
|000029d0| 00 00 00 00 00 00 00 00 | 00 00 ab cd 7f 24 00 00 |........|.....$..|
|000029e0| 00 00 00 00 00 00 00 00 | ab cd 7f 23 00 00 00 00 |........|...#....|
|000029f0| 00 00 00 00 00 00 ab cd | 7f 22 00 00 00 00 00 00 |........|."......|
|00002a00| 00 00 00 00 ab cd 7f 20 | 00 00 00 00 00 00 00 00 |....... |........|
|00002a10| 00 00 ab c0 2f 91 00 00 | 00 00 00 00 00 00 00 00 |..../...|........|
|00002a20| ab cd 7f 20 00 00 00 00 | 00 00 00 00 00 01 ab cd |... ....|........|
|00002a30| 7f 1e 00 00 00 00 00 00 | 00 00 00 00 ab cd 7f 1d |........|........|
|00002a40| 00 00 00 00 00 00 00 00 | 00 05 ab cd 7f 1c 00 00 |........|........|
|00002a50| 00 00 00 00 00 00 00 00 | ab cd 7f 1c 00 00 01 00 |........|........|
|00002a60| 00 00 07 5c 00 00 06 5c | 00 00 00 98 00 70 29 14 |...\...\|.....p).|
|00002a70| 10 88 00 00 00 1c 00 76 | 00 01 4d 50 53 52 00 01 |.......v|..MPSR..|
|00002a80| 00 12 75 6e 69 74 00 03 | 00 2a 03 ed ff ff 00 00 |..unit..|.*......|
|00002a90| 00 00 00 00 00 00 03 f0 | ff ff 00 00 00 4c 00 00 |........|.....L..|
|00002aa0| 00 00 00 07 00 00 00 00 | 00 6e 00 00 00 00 00 03 |........|.n......|
|00002ab0| 00 0a 00 00 00 ea 00 00 | 00 00 00 01 00 14 00 00 |........|........|
|00002ac0| 05 3e 00 00 00 00 00 00 | 00 1b 00 00 05 80 00 00 |.>......|........|
|00002ad0| 00 00 09 55 6e 69 74 4e | 61 6d 65 73 09 53 79 6d |...UnitN|ames.Sym|
|00002ae0| 62 54 61 62 6c 65 06 55 | 6e 64 65 66 73 06 48 65 |bTable.U|ndefs.He|
|00002af0| 61 64 65 72 00 00 00 00 | 00 00 00 00 00 00 00 00 |ader....|........|
+--------+-------------------------+-------------------------+--------+--------+